unit uNumberWithFunctions;

interface

uses uNumber, uNumberFunction;

type

  TNumberWithFunctions = class(TNumber)
  public
    procedure ApplyFunction(AFunction: TNumberFunction); virtual;
  end;

implementation

uses uNumberExceptions;

{ TNumberWithFunctions }

procedure TNumberWithFunctions.ApplyFunction(AFunction: TNumberFunction);
begin
  raise EUnsupportedFeature.CreateFmt('Class %s does not support functions',[Self.ClassName]);
end;

end.
